home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol029 / chr.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  896 b   |  22 lines
  1. 10 'program to display complete character set on monochrome display
  2. 20 '
  3. 30 'author:e.c. hume
  4. 40 '
  5. 50 COLOR 7,0:CLS:DEFINT I-N:KEY OFF
  6. 60 DEF SEG=&HB000                           'point to screen memory
  7. 70 FOR IROW=1 TO 24                         '24 rows
  8. 80 LOCATE IROW,1
  9. 90 FOR JCOL=1 TO 11                         '11 chars/row (7 spaces/char)
  10. 100 IJ=(IROW-1)*11+JCOL-1
  11. 110 IF IJ>255 GOTO 170
  12. 120 PRINT USING "###    ";IJ;:
  13. 130 NPOKE=(IROW-1)*160 +JCOL*14-6           'location for char. placement
  14. 140 POKE NPOKE+1,15                         'set attribute to high intensity
  15. 150 POKE NPOKE,IJ                           'place character ij
  16. 160 NEXT JCOL:NEXT IROW
  17. 170 LOCATE 25,27,0:COLOR 0,7:PRINT "   IBM character set   ";
  18. 180 LOCATE 25,1,0:COLOR 16,7:PRINT "  FLASH  ";
  19. 190 LOCATE 25,71,0:COLOR 9,0:PRINT "UNDERLINE";
  20. 200 COLOR 7,0:GOTO 200
  21.  ";
  22. 180 LOCATE 25,1,0:COLOR